home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / H-K / INIT Shell.sit / INIT Shell ƒ / INIT Shell.c next >
Encoding:
C/C++ Source or Header  |  1991-04-07  |  729 b   |  43 lines  |  [TEXT/KAHL]
  1.  
  2. /*
  3.     INIT Shell  --  Version 0.90  --  Jan  1, 1990
  4.     INIT Shell  --  Version 1.00  --  Apr  7, 1990
  5.     
  6.     Copyright (c) 1990,91 by Neal E. Trautman
  7.     
  8.     'ShareWare' -- Please send $5 contribution to:
  9.  
  10.         Neal Trautman
  11.         3700 Clinton Parkway, #1412
  12.         Lawrence, KS  66047
  13.     
  14.     This is an INIT Shell.
  15. */
  16.  
  17.  
  18. #include "SetUpA4.h"                    /* Include Think C's routines for the A4 world                            */
  19.  
  20.  
  21. main()
  22. {
  23.     Ptr        INIT_code_ptr;
  24.     Handle    INIT_code_handle;
  25.  
  26.     asm {
  27.         move.l    a0,INIT_code_ptr;        /* Get the pointer to this code                                            */
  28.     }
  29.     RememberA0();
  30.     SetUpA4();
  31.  
  32.     if (!Button()) {
  33.         INIT_code_handle = RecoverHandle(INIT_code_ptr);
  34.         HLock(INIT_code_handle);
  35.         DetachResource(INIT_code_handle);
  36.  
  37.         /* INIT code goes here */
  38.  
  39.     }
  40.     
  41.     RestoreA4();
  42. }
  43.